約 2,105,176 件
https://w.atwiki.jp/p_ss/pages/1108.html
たまの休みだってゆうのにアナタはゲームばかりしてる。 さっきまでひとつにまるまって眠っていたベッドは 脱け殻みたいに アナタのかわりに毛布がまるまってる。 『おはよっ』 先に目覚めるのは私。 『ん〜・・・』 なかなか目を覚まさないのはアナタ。 『ふにぃ〜おはよぉー』 アナタを起こすのは私の役目。 『ん〜もぉちょっと・・』 二度寝するのはアナタの役目。 『にひぃ〜ちゅぅしちゃうよ〜??』 甘えさせてあげるのは私の特権。 『ん〜、、あ〜ちゃん抱っこぉ〜』 甘えてくるのはアナタだけに許した特権。 抱き締めてあげると またスヤスヤと寝息をたてはじめるのっちの額に 小さくキスをして 起こさないようにベッドから抜け出す たまの休み。 起きたと思ったら たまの休みだってゆうのにゲームばかりしてる。 部屋を片付けて 買い物にでかけよう って言ってたのに、 アナタはいつもテレビ画面ばかり見つめてる。 洗濯をする私。 ゲームをするアナタ。 食器を洗う私。 ゲームをするアナタ。 遅めの昼食をつくる私。 ゲームをするアナタ。 むぅ。なんか納得できん。 『のっちぃ??』 『・・・』 『のっちってば!!』 『!!んっ!??』 『ご飯できるよ??』 『ん〜・・・』 『のっちっ!!』 『・・・』 空返事してたのがバレバレなんよ。 もうあ〜ちゃん怒るよ?? 『いい加減にしんさい』 ピシャッと低い声で言った。 『ふぇっ!!?ご、ご、ごも、ごめんっ!!』 噛みすぎ・・・。 だけど慌てたアナタの八の字眉が可愛くて、 急いでコントローラーを放って私に抱きついてくる仕草が可愛くて、 『んん〜ゆるすっw』 いつも許しちゃうの。 ヘラッてうれしそうに笑うアナタが可愛くて つい意地悪したくなる。 『ねぇのっち?あ〜ちゃんよりゲームのが大事なん??』 思いっきり上目遣いで聞いてみる。 またヘラッて笑うけど、 さっきより大人な 今度は私を甘えさせてくれるような余裕のある笑顔で 『あ〜ちゃんのが大事に決まってるの知ってるでしょ?』 アナタが発する言葉は どれも優しく どれも甘い。 『じゃあ、あ〜ちゃんのこと好き?ずっと好き?』 だから私はいっぱい甘えてやるんだ。 『ずっとずーっと大好きだよ。だからずーっと側にいてくんなきゃ嫌だよ?』 そう言うと ちゅって優しくキスをくれた。 私が予想してたより、 ずっと優しい言葉をくれるアナタの唇は ハチミツみたいに甘くって 私のピンク色に染まった心をトロトロに溶かしてくの。 優しく甘いハチミツ黄色が 穏やかな午後を運ぶ。 ご飯を食べたら 手を繋いで出かけようね。 『あ、セーブセーブ!!セーブだけさせて!!』 もう!!のっちの馬鹿!!
https://w.atwiki.jp/ce00582/pages/748.html
Function bud(th, c, y) As Single Dim s As Single Dim w1 As Single Dim theta As Single Dim c1 As Single Dim y1 As Single b1 = 0 For s = 1 To 10 m = prefer(s, th, c, y) theta = th(s) c1 = c(m) y1 = y(m) b1 = b1 + y1 - c1 Next bud = b1 End Function Function wel(th, c, y) As Single Dim s As Single Dim w1 As Single Dim theta As Single Dim c1 As Single Dim y1 As Single w1 = 0 For s = 1 To 10 m = prefer(s, th, c, y) theta = th(s) c1 = c(m) y1 = y(m) w1 = w1 + u(theta, c1, y1) Next wel = w1 End Function Function prefer(s As Single, th, c, y) As Single Dim m As Single Dim u1 As Single Dim maxu As Single Dim maxm As Single Dim theta As Single Dim c1 As Single Dim y1 As Single maxm = 1 maxu = -999 theta = th(s) For m = 1 To 2 c1 = c(m) y1 = y(m) u1 = u(theta, c1, y1) If u1 maxu Then maxm = m If u1 maxu Then maxu = u1 Next prefer = maxm End Function Function u(theta As Single, c1 As Single, y1 As Single) As Single Dim pp As Single Dim u1 As Single Dim c2 As Single Dim l2 As Single pp = 0 c2 = c1 l2 = y1 / theta If c2 0 Then pp = 1 If c2 = 0 Then pp = 1 If l2 0.99 Then pp = 1 If pp = 1 Then c2 = 0.5 If pp = 1 Then l2 = 0.5 u1 = Log(c2) + Log(1 - l2) If pp = 1 Then u1 = -999 u = u1 End Function Private Sub Command1_Click() Dim s As Single Dim m As Single Dim q As Single Dim th(1 To 10) As Single Dim cs(1 To 2) As Single Dim ys(1 To 2) As Single Dim c(1 To 2) As Single Dim y(1 To 2) As Single Dim cp(1 To 2, 1 To 9) As Single Dim yp(1 To 2, 1 To 9) As Single Dim h As Single Dim i As Single Dim j As Single For s = 1 To 10 th(s) = 0.2 * s Next ys(1) = 0 cs(1) = 0.01 cs(2) = 0.44 ys(2) = 0.5 For m = 1 To 2 c(m) = cs(m) y(m) = ys(m) Next t3 = 0 Do Until t3 10 h = 0.1 t = 0 Do Until t 100 i = -1 j = -1 For q = 1 To 9 cp(2, q) = cs(2) + h * i yp(2, q) = ys(2) + h * j j = j + 1 If j = 2 Then i = i + 1 If j = 2 Then j = -1 Next ws = -999 For q = 1 To 9 c(1) = cs(1) y(1) = ys(1) c(2) = cp(2, q) y(2) = yp(2, q) w1 = wel(th, c, y) b1 = bud(th, c, y) If b1 0 Then w1 = -999 If w1 ws Then qs = q If w1 ws Then ws = w1 Next cs(2) = cp(2, qs) ys(2) = yp(2, qs) If (qs - 5) ^ 2 10 ^ (-2) Then h = h / 2 If h 10 ^ (-4) Then t = 1000 Debug.Print t, qs, ws t = t + 1 Loop h = 0.1 t = 0 Do Until t 100 i = -1 j = -1 For q = 1 To 9 cp(1, q) = cs(1) + h * i yp(1, q) = ys(1) + h * j j = j + 1 If j = 2 Then i = i + 1 If j = 2 Then j = -1 Next ws = -999 For q = 1 To 9 c(2) = cs(2) y(2) = ys(2) c(1) = cp(1, q) y(1) = yp(1, q) w1 = wel(th, c, y) b1 = bud(th, c, y) If b1 0 Then w1 = -999 If w1 ws Then qs = q If w1 ws Then ws = w1 Next cs(1) = cp(1, qs) ys(1) = yp(1, qs) If (qs - 5) ^ 2 10 ^ (-2) Then h = h / 2 If h 10 ^ (-4) Then t = 1000 Debug.Print t, qs, ws t = t + 1 Loop t3 = t3 + 1 Debug.Print t3 Loop End Sub
https://w.atwiki.jp/javadsge/pages/9737.html
package tara; public class pro { int number; int number_step; int number_var; double[] beta=new double[5]; double[][] alpha=new double[5][5]; double[][][] theta=new double[6][5][5]; int[] op=new int[101]; int[] y=new int[101]; double[][] x=new double[101][4]; int s,sx,tr; public static void main(String[] args) { pro test=new pro(); } pro(){ int maxc=0; number_step=1; number_var=2; number=100; for(s=1;s number+1;s++){ x[s][1]=Math.random(); x[s][2]=Math.random(); x[s][3]= Math.random(); } for(s=1;s number+1;s++){ y[s]=0; if(3*x[s][1]-x[s][2] 1)y[s]=1; } for(s=1;s number_var+1;s++){ alpha[s][0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ alpha[s][sx]=Math.random(); } } beta[0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ beta[sx]=Math.random(); } for(tr=1;tr number_step+1;tr++){ for(s=1;s number_var+1;s++){ theta[tr][s][0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ theta[tr][s][sx]=Math.random(); } } } int de; faststep sub=new faststep(); sub.x=x; sub.y=y; sub.number_step=number_step; sub.number_var=number_var; sub.number=number; sub.alpha=alpha; sub.beta=beta; sub.theta=theta; sub.makedata(); alpha=sub.alpha_op; beta=sub.beta_op; theta=sub.theta_op; number_step=2; for(de=2;de 4;de++){ game sub2=new game(); sub2.x=x; sub2.y=y; sub2.number_step=number_step; sub2.number_var=number_var; sub2.number=number; sub2.alpha=alpha; sub2.beta=beta; sub2.theta=theta; sub2.makedata(); alpha=sub2.alpha_op; beta=sub2.beta_op; theta=sub2.theta_op; for(s=1;s number_var+1;s++){ for(sx=0;sx number_var+1;sx++){ System.out.println(theta[number_step][s][sx]); } } number_step=number_step+1; for(s=1;s number_var+1;s++){ for(sx=0;sx number_var+1;sx++){ theta[number_step][s][sx]=0; } } for(s=1;s number_var+1;s++){ theta[number_step][s][0]=-0.1; theta[number_step][s][s]=1.3; } } } } package tara; public class faststep{ int number; int number_step; int number_var; double[] beta=new double[5]; double[][] alpha=new double[5][5]; double[][][] theta=new double[6][5][5]; double[] beta_op=new double[5]; double[][] alpha_op=new double[5][5]; double[][][] theta_op=new double[6][5][5]; int[] op=new int[101]; int[] y=new int[101]; double[][] x=new double[101][5]; int s,sx,tr; void makedata(){ int maxc=0; int trial; for(trial=1;trial 101;trial++){ for(s=1;s number_var+1;s++){ alpha[s][0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ alpha[s][sx]=Math.random(); } } beta[0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ beta[sx]=Math.random(); } for(tr=1;tr number_step+1;tr++){ for(s=1;s number_var+1;s++){ theta[tr][s][0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ theta[tr][s][sx]=Math.random(); } } } double g1; nn sub=new nn(); sub.x=x; sub.y=y; sub.number_step=number_step; sub.number_var=number_var; sub.number=number; sub.alpha=alpha; sub.beta=beta; sub.theta=theta; sub.makedata(); alpha=sub.alpha; beta=sub.beta; theta=sub.theta; int eq; double[][] e=new double[5][101]; double[][] es=new double[5][101]; for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ double z=alpha[eq][0]; for(sx=1;sx number_var+1;sx++){ z=z+alpha[eq][sx]*x[s][sx]; } es[eq][s]=0; if(z 0)es[eq][s]=1; } } for(tr=1;tr number_step+1;tr++){ for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ e[eq][s]=es[eq][s]; }} for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ double z=theta[tr][eq][0]; for(sx=1;sx number_var+1;sx++){ z=z+theta[tr][eq][sx]*e[sx][s]; } es[eq][s]=0; if(z 0)es[eq][s]=1; } } } for(s=1;s number+1;s++){ double z=beta[0]; for(sx=1;sx number_var+1;sx++){ z=z+beta[sx]*es[sx][s]; } op[s]=0; if(z 0)op[s]=1; } int n=0; for(s=1;s number+1;s++){ if(op[s]==y[s])n=n+1; } if(n maxc)fresh(); if(n maxc)maxc=n; } System.out.println(maxc); } void fresh(){ int eq,m; for(m=0;m number_var+1;m++){ beta_op[m]=beta[m]; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ alpha_op[eq][m]=alpha[eq][m]; }} for(tr=1;tr number_step+1l;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ theta_op[tr][eq][m]=theta[tr][eq][m]; }}} } } package tara; public class nn { int number; int number_step; int number_var; double[] beta=new double[5]; double[][] alpha=new double[5][5]; double[][][] theta=new double[6][5][5]; int[] y=new int[101]; double[][] x=new double[101][4]; int s,sx,tr; double[][] a=new double[7][5]; double[][] dalpha=new double[7][5]; double[] b=new double[5]; double[] dbeta=new double[5]; double[][] dtheta=new double[5][5]; double[][][] th=new double[6][5][5]; void makedata(){ int q,s,sx; double g1=0; double g2; int trial=0; while(trial 50){ trial=trial+1; f sub=new f(); sub.x=x; sub.y=y; sub.number_step=number_step; sub.number_var=number_var; sub.number=number; sub.alpha=alpha; sub.beta=beta; sub.theta=theta; g1=sub.makedata(); int eq,m; for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ fresh(); double h=0.01; a[eq][m]=a[eq][m]+h; f sub2=new f(); sub2.x=x; sub2.y=y; sub2.number_step=number_step; sub2.number_var=number_var; sub2.number=number; sub2.alpha=a; sub2.beta=beta; sub2.theta=theta; g2=sub2.makedata(); dalpha[eq][m]=(g2-g1)/h; } } for(m=0;m number_var+1;m++){ fresh(); double h=0.01; b[m]=b[m]+h; f sub2=new f(); sub2.x=x; sub2.y=y; sub2.number_step=number_step; sub2.number_var=number_var; sub2.number=number; sub2.alpha=alpha; sub2.beta=b; sub2.theta=theta; g2=sub2.makedata(); dbeta[m]=(g2-g1)/h; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ double h=0.01; fresh(); th[number_step][eq][m]=theta[number_step][eq][m]+h; f sub3=new f(); sub3.x=x; sub3.y=y; sub3.number_step=number_step; sub3.number_var=number_var; sub3.number=number; sub3.alpha=alpha; sub3.beta=beta; sub3.theta=th; g2=sub3.makedata(); dtheta[eq][m]=(g2-g1)/h; } } fresh(); double sig=0; for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ sig=sig+dtheta[eq][m]*dtheta[eq][m]; } } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ sig=sig+dalpha[eq][m]*dalpha[eq][m]; } } for(m=0;m number_var+1;m++){ sig=sig+dbeta[m]*dbeta[m]; } for(m=0;m number_var+1;m++){ b[m]=beta[m]-0.01*g1*dbeta[m]/sig; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ a[eq][m]=alpha[eq][m]-0.01*g1*dalpha[eq][m]/sig; }} for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ th[number_step][eq][m]=theta[number_step][eq][m]-0.01*g1*dtheta[eq][m]/sig; }} f sub4=new f(); sub4.x=x; sub4.y=y; sub4.number_step=number_step; sub4.number_var=number_var; sub4.number=number; sub4.alpha=a; sub4.beta=b; sub4.theta=th; g2=sub4.makedata(); if(g2 g1)refresh(); if(g2 g1)trial=10000; } } void fresh(){ int eq,m; for(m=0;m number_var+1;m++){ b[m]=beta[m]; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ a[eq][m]=alpha[eq][m]; }} for(tr=1;tr number_step+1l;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ th[tr][eq][m]=theta[tr][eq][m]; }}} } void refresh(){ int eq,m; for(m=0;m number_var+1;m++){ beta[m]=b[m]; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ alpha[eq][m]=a[eq][m]; }} for(tr=1;tr number_step+1l;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ theta[tr][eq][m]=th[tr][eq][m]; }}} } } package tara; public class game{ int number; int number_step; int number_var; double[] beta=new double[5]; double[][] alpha=new double[5][5]; double[][][] theta=new double[6][5][5]; double[] beta_op=new double[5]; double[][] alpha_op=new double[5][5]; double[][][] theta_op=new double[6][5][5]; int[] op=new int[101]; int[] y=new int[101]; double[][] x=new double[101][5]; int s,sx,tr; void makedata(){ int maxc=0; int trial; for(trial=1;trial 101;trial++){ beta[0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ beta[sx]=Math.random(); } for(s=1;s number_var+1;s++){ theta[number_step][s][0]=-Math.random(); for(sx=1;sx number_var+1;sx++){ theta[number_step][s][sx]=Math.random(); } } double g1; nnx sub=new nnx(); sub.x=x; sub.y=y; sub.number_step=number_step; sub.number_var=number_var; sub.number=number; sub.alpha=alpha; sub.beta=beta; sub.theta=theta; sub.makedata(); beta=sub.beta; theta=sub.theta; int eq; double[][] e=new double[5][101]; double[][] es=new double[5][101]; for(s=1;s number+1;s++){ for(eq=1;eq number_var+1;eq++){ double z=alpha[eq][0]; for(sx=1;sx number_var+1;sx++){ z=z+alpha[eq][sx]*x[s][sx]; } es[eq][s]=0; if(z 0)es[eq][s]=1; } } for(tr=1;tr number_step+1;tr++){ for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ e[eq][s]=es[eq][s]; }} for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ double z=theta[tr][eq][0]; for(sx=1;sx number_var+1;sx++){ z=z+theta[tr][eq][sx]*e[sx][s]; } es[eq][s]=0; if(z 0)es[eq][s]=1; } } } for(s=1;s number+1;s++){ double z=beta[0]; for(sx=1;sx number_var+1;sx++){ z=z+beta[sx]*es[sx][s]; } op[s]=0; if(z 0)op[s]=1; } int n=0; for(s=1;s number+1;s++){ if(op[s]==y[s])n=n+1; } if(n maxc)fresh(); if(n maxc)maxc=n; } System.out.println(maxc); } void fresh(){ int eq,m; for(m=0;m number_var+1;m++){ beta_op[m]=beta[m]; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ alpha_op[eq][m]=alpha[eq][m]; }} for(tr=1;tr number_step+1l;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ theta_op[tr][eq][m]=theta[tr][eq][m]; }}} } } package tara; public class nnx { int number; int number_step; int number_var; double[] beta=new double[5]; double[][] alpha=new double[5][5]; double[][][] theta=new double[6][5][5]; int[] y=new int[101]; double[][] x=new double[101][4]; int s,sx,tr; double[][] a=new double[7][5]; double[][] dalpha=new double[7][5]; double[] b=new double[5]; double[] dbeta=new double[5]; double[][] dtheta=new double[5][5]; double[][][] th=new double[6][5][5]; void makedata(){ int q,s,sx; double g1=0; double g2; int trial=0; while(trial 50){ trial=trial+1; f sub=new f(); sub.x=x; sub.y=y; sub.number_step=number_step; sub.number_var=number_var; sub.number=number; sub.alpha=alpha; sub.beta=beta; sub.theta=theta; g1=sub.makedata(); int m; for(m=0;m number_var+1;m++){ fresh(); double h=0.01; b[m]=b[m]+h; f sub2=new f(); sub2.x=x; sub2.y=y; sub2.number_step=number_step; sub2.number_var=number_var; sub2.number=number; sub2.alpha=alpha; sub2.beta=b; sub2.theta=theta; g2=sub2.makedata(); dbeta[m]=(g2-g1)/h; } int eq; for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ double h=0.01; fresh(); th[number_step][eq][m]=theta[number_step][eq][m]+h; f sub3=new f(); sub3.x=x; sub3.y=y; sub3.number_step=number_step; sub3.number_var=number_var; sub3.number=number; sub3.alpha=alpha; sub3.beta=beta; sub3.theta=th; g2=sub3.makedata(); dtheta[eq][m]=(g2-g1)/h; } } fresh(); double sig=0; for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ sig=sig+dtheta[eq][m]*dtheta[eq][m]; } } for(m=0;m number_var+1;m++){ sig=sig+dbeta[m]*dbeta[m]; } for(m=0;m number_var+1;m++){ b[m]=beta[m]-0.01*g1*dbeta[m]/sig; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ th[number_step][eq][m]=theta[number_step][eq][m]-0.01*g1*dtheta[eq][m]/sig; }} f sub4=new f(); sub4.x=x; sub4.y=y; sub4.number_step=number_step; sub4.number_var=number_var; sub4.number=number; sub4.alpha=alpha; sub4.beta=b; sub4.theta=th; g2=sub4.makedata(); if(g2 g1)refresh(); if(g2 g1)trial=10000; } } void fresh(){ int eq,m; for(m=0;m number_var+1;m++){ b[m]=beta[m]; } for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ a[eq][m]=alpha[eq][m]; }} for(tr=1;tr number_step+1l;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ th[tr][eq][m]=theta[tr][eq][m]; }}} } void refresh(){ int eq,m; for(m=0;m number_var+1;m++){ beta[m]=b[m]; } for(tr=1;tr number_step+1;tr++){ for(eq=1;eq number_var+1;eq++){ for(m=0;m number_var+1;m++){ theta[tr][eq][m]=th[tr][eq][m]; }}} } } package tara; public class f { double[] op=new double[101]; double[][] e=new double[5][101]; double[][] es=new double[5][101]; int number; int number_step; int number_var; double[] beta=new double[5]; double[][] alpha=new double[5][5]; double[][][] theta=new double[3][5][5]; int[] y=new int[101]; double[][] x=new double[101][5]; int s,sx,tr; double makedata(){ int s,sx; int eq; for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ double z=alpha[eq][0]; for(sx=1;sx number_var+1;sx++){ z=z+alpha[eq][sx]*x[s][sx]; } es[eq][s]=1/(1+Math.exp(-z)); } } for(tr=1;tr number_step+1;tr++){ for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ e[eq][s]=es[eq][s]; }} for(eq=1;eq number_var+1;eq++){ for(s=1;s number+1;s++){ double z=theta[tr][eq][0]; for(sx=1;sx number_var+1;sx++){ z=z+theta[tr][eq][sx]*e[sx][s]; } es[eq][s]=1/(1+Math.exp(-z)); } } } for(s=1;s number+1;s++){ double z=beta[0]; for(sx=1;sx number_var+1;sx++){ z=z+beta[sx]*es[sx][s]; } op[s]=1/(1+Math.exp(-z)); } double don=0; for(s=1;s number+1;s++){ don=don+(op[s]-y[s])*(op[s]-y[s]); } return don; } }
https://w.atwiki.jp/0803/pages/11.html
100版[黄16-18] 16.AI 17.ストラグラー 18.女神
https://w.atwiki.jp/ce00582/pages/749.html
Function bud(th, c, y) As Single Dim s As Single Dim w1 As Single Dim theta As Single Dim c1 As Single Dim y1 As Single b1 = 0 For s = 1 To 10 m = prefer(s, th, c, y) theta = th(s) c1 = c(m) y1 = y(m) b1 = b1 + y1 - c1 Next bud = b1 End Function Function wel(th, c, y) As Single Dim s As Single Dim w1 As Single Dim theta As Single Dim c1 As Single Dim y1 As Single w1 = 0 For s = 1 To 10 m = prefer(s, th, c, y) theta = th(s) c1 = c(m) y1 = y(m) w1 = w1 + u(theta, c1, y1) Next wel = w1 End Function Function prefer(s As Single, th, c, y) As Single Dim m As Single Dim u1 As Single Dim maxu As Single Dim maxm As Single Dim theta As Single Dim c1 As Single Dim y1 As Single maxm = 1 maxu = -999 theta = th(s) For m = 1 To 2 c1 = c(m) y1 = y(m) u1 = u(theta, c1, y1) If u1 maxu Then maxm = m If u1 maxu Then maxu = u1 Next prefer = maxm End Function Function u(theta As Single, c1 As Single, y1 As Single) As Single Dim pp As Single Dim u1 As Single Dim c2 As Single Dim l2 As Single pp = 0 c2 = c1 l2 = y1 / theta If c2 0 Then pp = 1 If c2 = 0 Then pp = 1 If l2 0.99 Then pp = 1 If pp = 1 Then c2 = 0.5 If pp = 1 Then l2 = 0.5 u1 = Log(c2) + Log(1 - l2) If pp = 1 Then u1 = -999 u = u1 End Function Private Sub Command1_Click() Dim s As Single Dim m As Single Dim q As Single Dim th(1 To 10) As Single Dim cs(1 To 2) As Single Dim ys(1 To 2) As Single Dim c(1 To 2) As Single Dim y(1 To 2) As Single Dim cp(1 To 2, 1 To 9) As Single Dim yp(1 To 2, 1 To 9) As Single Dim cn(1 To 2) As Single Dim yn(1 To 2) As Single Dim h As Single Dim i As Single Dim j As Single For s = 1 To 10 th(s) = 0.2 * s Next ys(1) = 0 cs(1) = 0.01 cs(2) = 0.44 ys(2) = 0.5 For m = 1 To 2 c(m) = cs(m) y(m) = ys(m) Next t3 = 0 Do Until t3 10 h = 0.1 t = 0 Do Until t 100 i = -1 j = -1 For q = 1 To 9 cp(2, q) = cs(2) + h * i yp(2, q) = ys(2) + h * j j = j + 1 If j = 2 Then i = i + 1 If j = 2 Then j = -1 Next ws = -999 For q = 1 To 9 c(1) = cs(1) y(1) = ys(1) c(2) = cp(2, q) y(2) = yp(2, q) w1 = wel(th, c, y) b1 = bud(th, c, y) If b1 0 Then w1 = -999 If w1 ws Then qs = q If w1 ws Then ws = w1 Next cs(2) = cp(2, qs) ys(2) = yp(2, qs) If (qs - 5) ^ 2 10 ^ (-2) Then h = h / 2 If h 10 ^ (-4) Then t = 1000 Debug.Print t, qs, ws t = t + 1 Loop h = 0.1 t = 0 Do Until t 100 i = -1 j = -1 For q = 1 To 9 cp(1, q) = cs(1) + h * i yp(1, q) = ys(1) + h * j j = j + 1 If j = 2 Then i = i + 1 If j = 2 Then j = -1 Next ws = -999 For q = 1 To 9 c(2) = cs(2) y(2) = ys(2) c(1) = cp(1, q) y(1) = yp(1, q) w1 = wel(th, c, y) b1 = bud(th, c, y) If b1 0 Then w1 = -999 If w1 ws Then qs = q If w1 ws Then ws = w1 Next cs(1) = cp(1, qs) ys(1) = yp(1, qs) If (qs - 5) ^ 2 10 ^ (-2) Then h = h / 2 If h 10 ^ (-4) Then t = 1000 Debug.Print t, qs, ws t = t + 1 Loop t3 = t3 + 1 e = (cn(1) - cs(1)) ^ 2 + (yn(1) - ys(1)) ^ 2 + (cn(2) - cs(2)) ^ 2 + (yn(2) - ys(2)) ^ 2 If e 0.01 Then t3 = 1000 cn(1) = cs(1) cn(2) = cs(2) yn(1) = ys(1) yn(2) = ys(2) Debug.Print t3, e Loop End Sub
https://w.atwiki.jp/gtathetrilogy/pages/82.html
[部分編集] The Getaway データ 依頼者:ジョーイ 目的:レオーネの銀行強盗を手伝う 報酬:$10,000~$30,000 受付:ジョーイの整備工場(Jのマーク) 操作開始:整備工場の前 制限時間:なし 仲間・護衛対象:レオーネファミリー3人 乗り物:4人乗り 終了地点:セント・マークスのガレージ 終了時の乗り物:ミッションに使った車 最寄りの乗り物:ガソリンスタンドの車、Fire Truck その他:「Last Requests」をクリアすると消滅、ジョーイのミッション完了 ミッションの流れ 4人乗りの車を用意する 味方の待つガレージへ行く クラクションを鳴らして味方を乗せる 目標の銀行へ向かう 味方が強盗を済ませるのを待つ 手配度3に上昇 手配度を消す 味方を乗せたガレージに戻ればクリア 攻略ポイント・小ネタ この段階で4人乗りならMafia Sentinelが最上位の速さとなる。 また、もし手配度を消すときに塗装屋を使う気ならPoliceは除外するよう念頭に置く必要がある。 味方が何人生き残るかはランダムで決まり、1人当たり$10,000の報酬となる。 [部分編集] 関連リンク・動画 Area GTA GTA Wiki + 決定版 + オリジナル + iOS/Android版や比較など
https://w.atwiki.jp/ce00582/pages/2951.html
import java.awt.*; import java.awt.event.*; import java.io.*; class pro extends Frame{ double c[][]=new double[6][6]; double y1[][]=new double[6][6]; double y2[][]=new double[6][6]; public static void main(String [] args) { Frame f=new pro(); f.setTitle("pro"); f.setSize(700,700); f.setBackground(Color.yellow); f.setVisible(true); } pro(){ int s1,s2; try{ BufferedReader br = new BufferedReader(new FileReader("tax.txt")); String[] test = new String[25]; String str; String x[]=new String[5]; for(int i=0; i 25; i++){ str = br.readLine(); x=str.split(","); s1=Integer.valueOf(x[0]); s2=Integer.valueOf(x[1]); c[s1][s2]=Double.valueOf(x[2]); y1[s1][s2]=Double.valueOf(x[3]); y2[s1][s2]=Double.valueOf(x[4]); } br.close(); } catch(IOException e){System.out.println("入出力エラーです。");} addWindowListener(new stopwin()); } class stopwin extends WindowAdapter{ public void windowClosing(WindowEvent we){System.exit(0);} } public void paint(Graphics g){ int x1,x2,c1,c2; int s1,s2; int px,py; double x,y,z; g.setColor(Color.red); x=0; y=0; z=500; px=pointx(x,y,z); py=pointy(x,y,z); g.drawLine(100,600,100+px,600-py); x=500; y=0; z=0; px=pointx(x,y,z); py=pointy(x,y,z); g.drawLine(100,600,100+px,600-py); x=0; y=500; z=0; px=pointx(x,y,z); py=pointy(x,y,z); g.drawLine(100,600,100+px,600-py); } public static int pointy(double x,double y,double z){ int p2; double theta,phi; theta=-0.222222*Math.PI; phi=0.333333*Math.PI; p2=(int)(-Math.cos(theta)*Math.cos(phi)*x-Math.sin(theta)*Math.cos(phi)*y+Math.sin(phi)*z); return p2; } public static int pointx(double x,double y,double z){ int p1; double theta; theta=-0.222222*Math.PI; p1=(int)(-Math.sin(theta)*x+Math.cos(theta)*y); return p1; } }
https://w.atwiki.jp/lslwiki/pages/348.html
llTan float llTan(float theta) 機能概略 サンプル Tips 詳細な説明 History 来客数: - 選択肢 投票 役に立った (0) 役立たずだった (0) 名前 コメント
https://w.atwiki.jp/wadaisenryaku2/pages/657.html
黄色の夕焼け(ソ8) 陣営情報 陣営 軍事費 都市収入 国家収入 都市 空港 港 陸 空 海 パラセラ共和国(ソ) 8000 400 300 4 2 1 1 0 0 ハポナ1・2軍(日) 10000 5700 800 57 25 2 13 6 0 パラセラ第7軍(ソ) 5000 500 500 5 0 0 11 0 0 パラセラ第11軍(ソ) 5000 600 500 6 1 0 7 0 0 親衛空軍(日) 10000 000 200 0 0 0 0 13 0 マップ詳細 担当国 パラセラ共和国(ソ) 参戦国 ハポナ1・2軍(日) 参戦国 パラセラ第7軍(ソ) 参戦国 パラセラ第11軍(ソ) 増援 親衛空軍(日) 作戦期間 `67.3.5~`67.4.23 MAPサイズ 62×62 勝利条件 大勝 40ターン以内に全敵司令部を破壊 勝利 全敵司令部を破壊 敗北 自国司令部の破壊 戦勝ボーナス 結果 訓練値 経験値 資金 大勝利 0 0 0 勝利 0 0 0 攻略 最終マップにしては手応えに乏しいのが寂しいところ。 というのも、敵ハポナ側の初期兵力は左右の友軍に向けるため、 自軍の主戦力がマップ中央辺りまで進軍するまで、殆ど敵とぶつかることがない。 しかも三方向から侵攻していることもあり、対峙する敵は占領に向かってくる少数の歩兵が主。 また、相変わらず陸上兵器の性能差は歴然のため、航空支援に頼らずとも戦車戦なら10対10で相手を一撃粉砕できるほど。 正攻法で戦うならば、自軍司令部から北へ一直線に進軍しようとすると、 狭い山に囲まれた道を通るしかないため、渋滞を避けるため配置する順番は工夫しよう。 配置ユニット数は多いが、前述の理由から全兵力を配置する必要は無く、 空はMig7及びYak9全てと、都市爆撃用のPe-8を少数。 陸は戦車x6、IAG-10AAx3、索敵用の軽戦車x2、新鋭赤軍x2、補給車x1程度でも十分だ。 残りは自軍司令部左側の都市の占領および爆撃に注力すればいいだろう。 とは言え、7ターン目にマップ中央へ増援として現れる親衛空軍には注意したい。 秋水x3、震電x2、震電改x1、橘花x2、飛龍(爆撃機)x5と真っ向から航空機で立ち向かうと、 彼我の性能差から忽ちこちらが蒸発しかねない。 対処法として、戦闘機は何れも航続距離が短いので、損害覚悟で周辺の空港を占領・爆撃して燃料切れを狙うか、 IAG-10AAでの間接攻撃で叩き落そう。 飛龍(爆撃機)はB爆弾を装備しているので、手短な空港を爆撃されないよう注意しながら打ち落としたい。 正攻法に頼らないなら、いっそのことマップ右の友軍にありったけの戦闘機を支援に向かわせて、 自軍の陸戦力は特に何もせず友軍だけで勝利へ導く、というやり方もいいかもしれない。
https://w.atwiki.jp/wiki5_hks/pages/20.html
コントロールファイルは次のとおり. $PROBLEM EX1 $DATA EX1.CSV $INPUT ID TIME AMT=DOSE DV=CP $SUB ADVAN1 [[TRANS]]2 $PK TVCL=THETA(1) TVV =THETA(2) ; CL =TVCL*EXP(ETA(1)) V =TVV *EXP(ETA(2)) ; SC =V ; [[$ERROR]] Y =F*EXP(ERR(1)) IPRE=F ; [[$THETA]] (0 1) ; CL(L/HR) (0 10) ; V(L) [[$OMEGA]] 0.04 0.04 [[$SIGMA]] 0.01 $EST NOABORT MAXE=9999 PRINT=10 POSTHOC [[$COV]] [[$TABLE]] NOPRINT FILE=PRED-EX1.TXT ONEHEADER ID TIME DOSE IPRE $TABLE NOPRINT FILE=POST-EX1.TXT ONEHEADER NOAPPEND ID CL V ETA1 ETA2 ;